knitr::opts_chunk$set(echo = TRUE, warning = FALSE)
library(plotly)
library(DT)
library(palmerpenguins)
penguins_graph <- ggplot(data = penguins, aes(x = flipper_length_mm, y = body_mass_g)) +
  geom_point(aes(color = species))

penguins_graph

ggplotly(penguins_graph)

That makes a cool interactive plot

datatable(penguins)